/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! REI02G06                                                !
+------------------+---------------------------------------------------------+
!Descricao         ! Gatilho para produtos do grupo SV e subgrupo 01 e 02    !
!                  ! alimentar automaticamente o campo B1_CODISS com '2001'  !
+------------------+---------------------------------------------------------+
!Autor             ! REIVAX - DFR - DANILO F. RAMOS                          !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 06/04/2011                                              !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!   									    !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+ 
*/ 


User Function REI02G06()  
Local cRet := ''
                                        
if (rtrim(M->B1_GRUPO) == 'SV')
	if (rtrim(M->B1_ZSGRUPO) == '01' .or. rtrim(M->B1_ZSGRUPO) == '02')
		cRet := '2001'
	EndIf 
EndIf

return(cRet)